***********************************
*                                 *
*      INST.CDA Source Code       *
*       by  Sandy Mossberg        *
*                                 *
*       Copyright (C) 1989        *
*       by MicroSPARC, Inc.       *
*       Concord, MA  01742        *
*                                 *
***********************************
;
;
; If you are using APW, issue the following:
; 1. ASML INST.CDA.ASM
; 2. COPY  INST.CDA  */SYSTEM/SYSTEM.SETUP
; 3. FILETYPE  */SYSTEM/SYSTEM.SETUP/INST.CDA  $B7

           KEEP     INST.CDA

INST_CDA   START

; Check for ROM version 01:

           LDA      #0               ;zero result regs
           PHA                       ;space for result (P-reg)
           PHA                       ;                 (A-reg)
           PHA                       ;                 (X-reg
           PHA                       ;                 (Y-reg)
           PHA                       ;entry A-reg (lo byte used)
           PHA                       ;entry X-reg (lo byte used)
           PHA                       ;entry Y-reg (lo byte used)
           PEA      $FE1F            ;IDROUTINE entry
           LDX      #$2403           ;FWEntry tool call
           JSL      $E10000
           PLY                       ;Y-reg (lo byte returned)
           PLX                       ;X-reg (lo byte returned)
           PLA                       ;A-reg (lo byte returned)
           PLA                       ;P-reg (lo byte returned)
           CPY      #1
           BNE      Done             ;ROM 01 not found

; ROM version 01 found so install CDAs:

           LDA      #0               ;zero result regs
           PHA                       ;space for result (P-reg)
           PHA                       ;                 (A-reg)
           PHA                       ;                 (X-reg
           PHA                       ;                 (Y-reg)
           PHA                       ;entry A-reg (lo byte used)
           PHA                       ;entry X-reg (lo byte used)
           PHA                       ;entry Y-reg (lo byte used)
           PEA      $FEB4            ;# command entry (ROM 01)
           LDX      #$2403           ;FWEntry tool call
           JSL      $E10000
           PLY                       ;Y-reg (lo byte returned)
           PLX                       ;X-reg (lo byte returned)
           PLA                       ;A-reg (lo byte returned)
           PLA                       ;P-reg (lo byte returned)

; Exit program:

Done       RTL

           END